(define (multiplication-table n)
  (m-loop 1 12 n))

(define (m-loop i lim n)
  (display i)
  (display " x ")
  (display n)
  (display " is ")
  (display (* i n))
  (newline)
  (if (= i lim)
      (newline)
      (m-loop (+ i 1) lim n)))

(define main
  (begin (multiplication-table 2)
         (multiplication-table 7)
         (multiplication-table 9)
         (multiplication-table 11)))

